00010	BEGIN "TEST"
00020	DEFINE CR="'15",LF="'12",CRLF="CR&LF";
00030	DEFINE ⊂="COMMENT";
00040	
00050	
00060	INTEGER ARRAY ADR,ADRX,ADRS[0:5];
00070	STRING READ,FILEN;
00080	INTEGER PP,CHAN1,EOF; BOOLEAN ER;
00090	LABEL STARTP;
00100	
00110	STARTP:
00120	STDBRK(1);
00130	PP←1; FILEN←"HI20."&CVS(PP)&"[CMP,VIN]";
00140	ADR[0]←CVSIX("DSK");
00150	ADR[1]←CVSIX("XRUN  ");
00160	ADR[2]←CVSIX("DMP") LOR '4;
00170	ADR[3]←0;
00180	ADR[4]←CVSIX("  XALS");
00190	ADR[5]←CVSIX("  XALS");
00200	
00210	ADRX[0]←CVSIX("DSK");
00220	ADRX[1]←CVSIX("BXX   ");
00230	ADRX[2]←CVSIX("DMP") LOR '4;
00240	ADRX[3]←0;
00250	ADRX[4]←CVSIX("PITNJM");
00260	ADRX[5]←CVSIX("  XALS");
00270	
00280	ADRS[0]←CVSIX("DSK");
00290	ADRS[1]←CVSIX("SAY   ");
00300	ADRS[2]←CVSIX("DMP") LOR '4;
00310	ADRS[3]←0;
00320	ADRS[4]←CVSIX("  XALS");
00330	ADRS[5]←CVSIX("  XALS");
00340	
00360	OUTSTR("Type command ");
00370	READ←INCHRW;
00380	IF (READ="X")∨(READ="x") THEN BEGIN
00390	  OUTSTR("⊗");
00400	  COMMENT XPLOT;
00410	CLOSE(CHAN1); OPEN(CHAN1,"DSK",0,0,1,0,EOF,0);
00420	ENTER(CHAN1,"NUMBER.TMP",0);
00430	OUT(CHAN1,CVS(PP)&CRLF);
00440	CLOSE(CHAN1); RELEASE(CHAN1);
00450	  START_CODE MOVEI 0,ADR[0]; CALLI '400004; END;
00460	  GOTO STARTP;
00470	  END;
00480	
00490	IF (READ="S")∨(READ="s") THEN BEGIN
00500	  OUTSTR("⊗");
00510	  COMMENT Preset ESC 4 U ;
00520	CLOSE(CHAN1); OPEN(CHAN1,"DSK",0,0,1,0,EOF,0);
00530	ENTER(CHAN1,"NUMBER.TMP",0);
00540	OUT(CHAN1,CVS(PP)&CRLF);
00550	CLOSE(CHAN1); RELEASE(CHAN1);
00560	  START_CODE MOVEI 0,ADRS[0]; CALLI '400004; END;
00570	  GOTO STARTP;
00580	  END;
00590	
00600	
00610	IF (READ="R")∨(READ="r") THEN BEGIN
00620	  COMMENT Runs BXX;
00625	  ER←1;
00630	  WHILE ER DO BEGIN
00640	    ER←0;
00650	    CLOSE(CHAN1); OPEN(CHAN1,"DSK",0,0,1,0,EOF,0);
00660	    LOOKUP(CHAN1,"XGP.BIG",ER);
00670	    IF ER=0 THEN BEGIN
00680	      CLOSE(CHAN1); RELEASE(CHAN1);
00690	      START_CODE MOVEI 0,ADRX[0]; CALLI '400004; END;
00700	      OUTSTR(CRLF&"⊗"); DONE; END;
00710	    IF INCHRS>0 THEN BEGIN OUTSTR(CRLF&LF&"Don't forget to try later"&crlf);
00720	      CLOSE(CHAN1); RELEASE(CHAN1); DONE; END;
00730	    OUTSTR("*Waiting ");
00740	    END;
00750	  GOTO STARTP;
00760	  END;
00770	OUTSTR("Normal exit from SWAPS"&CRLF);
00780	END "TEST";